00010 



XLIST 



CORSER - CARD READER SERVICE 



PAGE 2 



01970 



CORSER - CARD READER SERVICE PAGE 3 

8-2-65 



00030 

00040 

00050 EXTERNAL STODaT, ADVbFF, IOSET, SETIOD, SETBYT, STOSQD 

00060 EXTERNAL CDRSAV, CDRCHN, CDRRET, ILLOUT , PIOMOD 

00070 INTERNAL CDRINT 

00080 

00090 ;device data block linkage 

00100 external cdrdb. cdrdat , crd is 

00110 entry cdrdsp 
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00120 












00130 












00140 












00150 


,CDR PARAMETER ASSIGNMENTS 










00160 












00170 


CDR CONTROL REGISTER 










00180 


CRDONE=10; 


DONE FLAG 








00190 


CRBUSY=20; 


BUSY FLAG 








00200 


CRBIN=40; 


BINARY 








00210 


CRALL=100; 


ALL FLAG 








00220 


CRMISS=200; 


DATA MISSED 








00230 


CREOC=400; 


END OF CARD 








00240 


CREOFF=1000; 


END OF FILE 








00250 


CRERR=2000; 


ERROR 








00260 


CHCHN=2 










00270 


ACCUMULATORS 










00280 


CRDAT1=TEM 










00290 


CRACsJDAT 










00300 












00310 


SPECIAL 10 STATUS WORD ASSIGNMENTS 








00320 


CRMFST=40000; 


FIRST CARD 








00330 


CRMBIN=200000; 


BINARY 








00340 


CRM!MG=100000; 


IMAGE 








00350 


SPECIAL CHARACTERS 










00360 


S2E0F=32; 


END OF FILE 








00370 












00380 


REPEAT 0,< 










00390 


,CDR DATA BLOCK 










00400 












00410 


CDRDAT: SIXBIT /CDR/ 










00420 


34 










00430 













00440 


EXP CDRDSP 










00450 


XWD 1400+PROG, 10403 










00460 













00470 













00480 


XWD PROG,0 










00490 













00500 













00510 


CRDIS: JRST . 










00520 


> 










00530 












00540 


,CDR SERVICE DISPATCH TABLE 










00550 






000000 


711600 


000000 


00560 


CDRDSP: CONO CR,0 {RELEASE 




000001 


263140 


000000 


00570 


POPJ PDP, ; 


CLOSE 


000002 


254000 


000000 


00580 


JRST ILLOUT 


;OUTPUT 


000003 


254000 


000004' 


00590 


JRST CRINP; 


INPUT 
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00600 
00610 

000004 621000 000002 00620 CRINP: TLZ IOS.IOBEG; VIRGIN DEVICE? IOBEG:=0 

00630 

000005 661000 040004 00640 CDRlNi: TLO I OS , I OFST + CRMFST ; lOFST : =CRMFST: = 1 

000006 135040 000000 00650 LDB TACPIQMOD 

000007 306040 000014 00660 CAIN TACB; MODE=BINARY? 

000010 661000 200000 00670 TLO lOS.CRMBINJ YES. CRMBIN:=1 

000011 306040 000010 00680 CAIN TACH MODE=IMAGE? 

000012 661000 100000 00690 TLO IOS.CRMIMG; YES. CRMIMG:=1 

000013 660000 010000 00700 TRO lOS.IOACTJ I0ACT:=1 

000014 202006 000002 00710 MOVEM lOS, DEVIOS (DEVDAT ) 

000015 260140 000000 00720 PUSHJ PDP.SETBYT; TAC0-5 : =TAC12-13 : s0 I TAC6-11 : =BYTE SI2E 

000016 202046 000010 00730 MOVEM TAC , DEVPTR ( DEVDAT ) 

000017 201040 000000 00740 MOVEI TAC, CDRCHN; ASSIGN PI CHANNEL 

000020 711601 000160 00750 CONO CR . CRBI N + CRALL + CRBUSY ( TAC ) »* SELECT BINARY, ALL 

000021 263140 000000 00760 POPJ POP,? RETURN 
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000022 
000023 
000024 
000025 
000026 
000027 
000030 
000031 
000032 
000033 
000034 

000035 
000036 
000037 
000040 
000041 
000042 
000043 
000044 
000045 
000046 



000047 
000050 
000051 
000052 
000053 
000054 
000055 
000056 
000057 
000060 
000061 
000062 
000063 
000064 
000065 

000066 
000067 

000070 
000071 
000072 
000073 



711740 
254000 
264000 
201300 
200006 
711700 
660000 
711440 
260140 
627000 
256000 

640400 
646400 

254000 
711700 
254000 
603000 
254000 
603000 
254000 
254000 



201040 
711601 
661000 
201240 
260140 
330000 
254000 
201040 
542040 
711740 
254000 
260140 
330000 
661000 
254000 



000010 

000022' 

000000 

000000 

000002 

002200 

200000 

000010 

000000 

040000 

000000 

007400 

007400 

000047' 

001000 

000051' 

200000 

000125' 

100000 

000144' 

000067' 



000017' 

000020 

000040 

000032 

000000 

000000 

000217' 

000056' 

000034' 

000400 

000226' 

000000 

000000 

000002 

000231' 



260140 000164' 
201040 000074' 

711640 000002 

620100 000160 

711602 000000 

254000 000112' 



00770 
00780 
00790 
00800 
00810 
00820 
00830 
00840 
00850 
00860 
00870 
00880 
00890 
00900 
00910 
00920 
00930 
00940 
00950 
00960 
00970 
00980 
00990 
01000 
01010 
01020 
01030 
01040 
01050 
01060 
01070 
01080 
01090 
01100 
01110 
01120 
01130 
01140 
01150 
01160 
01170 
01180 
01190 
01200 
01210 
01220 
01230 
01240 
01250 
01260 



CDRINT: 



CRFIRS: 



CREOFC: 
CREOF: 



CRFSTL: 
CRREST: 



coNSo cr.crdone; 

JRST CDRINT 

JSR CDRSAV; 

MOVEI DEVDAT,CDRDAT 

MOVE I0S,DEVI0S(DEVDAT) 

C0NS2 CR, CRMISS+CRERRJ 



DONE FLAG? 



SAVE ACCUMULATORS AND ESTAiLI 



DATA MISSED OR ERROR? 



TRO ios.ioderr; 

DATAI CR, CRDATi; 
PUSHJ PDF, I0SET5 

TLZN ios,crmfst; 

XCT CRDIS 

TRC CRDATI, 7400; 
TRCN CRDATI, 7400; 
JRST CREOFC; 
CONSZ CR, creoff; 
JRST creof; 
TLNE I0S,CRMBIN; 

JRST crfstb; 

TLNE I0S,CRMIMG; 
JRST CRFSTi; 
JRST CRFSTL+1 



MOVEI TACCDRCHN 
CONO CR,CRBUSY(TAC) 

TLO los, ioend; 

MOVEI DAT,S2E0F 

PUSHJ pdp,stooat; 

SKIP 

JRST CRLST2; 
MOVEI TAC; 
HRRM TAC, CRDIS; 
CONSO CR, CREOC; 

JRST crexit; 
PUSHJ pdp,aovbff; 

SKIP 

TLO ios,iobeg; 

JRST CROFF 

PUSHJ PDP, CRITMS; 

MOVEI taccrcv; 



I0DERRS=1 

INPUT INFORMATION 

PR0G:=C(JBTADR18-35), 

FIRST CARD? CRMFSTS=0 

;N0T first, go to SUBROUTINE 



item;sC(devptr) 



FIRST COL OF FIRST CARD 
Y, X, 0, OR 1 PUNCH? 

NO, END OF FILE CARD 
END OF FILE? 

YES 
CRMBIN=1? 
YES 

CRMIMG=1? 
YES 



;WAIT FOR EOC 

I0END:=1 

STORE END OF FILE CHARACTER 

BLOCK FULL OR BLOCK COMPLETE 

DATA STORED PROPERLY 

SET DISPATCH TO RETURN HERE. 

END OF CARD? 

NO. 

ADVANCE BUFFER 

I0BEG:=1 



STORE ITEM 
TAC:=CRCV. 



HOLLERITH READ 



CONI CR, TACl 

TRZ TACl, CRBIN+CRALL+CRBUSY; SELECT HOLLERITH, 

CONO CR, (TACl); RESET CARD READER 

JRST CREXTi; CHANGE DISPATCH AND GO 



ALL:=0, BUS 
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000074 
000075 
000076 
000077 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000110 
000111 

000112 
000113 
000114 

000115 
000116 
000117 
000120 
000121 
000122 
000123 
000124 



200440 
711740 
200440 
134040 
231040 
135242 
260140 
254000 
254000 
603440 
254000 
711700 
254000 
201040 



000241 
000400 
000142 
000011 
000005 
000206 
000053 
000052 
000115 
760000 
000077 
000400 
000115 
000074 



542040 000057 
254000 000226 
000000 006424 



200440 
134240 
260140 
330000 
254000 
603440 
254000 
254000 



000143 
000011 
000102 
000000 
000217 
760000 
000116 
000213 



01270 
01280 
01290 
01300 
01310 
01320 
01330 
01340 
01350 
01360 
01370 
01380 
01390 
01400 
01410 
01420 
01430 
01440 
01450 
01460 
01470 
01480 
01490 
01500 
01510 
01520 
01530 
01540 
01550 
01560 
01570 
01580 



HOLLERITH REaD MODE 



CRCV: 



CREXTi: 

CRCON: 

CRINS: 



MOVE CRAC, CPOINT 6, CRDATl, 233 ; 

CONSO CR.CREOC; END OF CARD? 

MOVE CRAC.CRCi; NO. LOOK AT ALL CHARACTERS 

LDBI TACCRAC ;CONVERT HOLLERITH 

IDIVI TAC. 5; TO ASCII 

LDB DAT. CRCVKTACl) 

PUSHJ PDP.STODAT; STORE IN BU FER 

JRST CREOF+1 

JRST CRINS 

TLNE CRAC. 760000 

JRST CRCV+3; 

CONSZ CR.CREOC; 

JRST CRINS; 

MOVEI TAC. CRCV; 



COLUMNS 79 AND 80 



HRRM TAC, CRDIS; 
JRST CREXIT 
OCT 6424 

MOVE CRAC.CRC2; 

LDBI DAT. CRAC 

PUSHJ PDP.STODAT; 

SKIP; 

JRST CRLST2; 

TLNE CRAC. 760000; 

JRST CRINS+l; 

JRST crlast; 



WORD COMPLETE? 

NO 

END OF CARD? 

YES 

NEXT DISPATCH TO CRCV. 

UPDATE DISPTaCHER 



HOLLERITH READ 



BLOCK FULL OR BLOCK COMPLETE INSERT CR 

STORE CHAR 

EXITl. 

EXIT2. BLOCK FULL OR BLOCK COMPLETE 

THATS ALL? 

NO 

END OF THE CARD 



CORSER - CARD READER SERVICE 
8-2-65 



PAGE 8 



000125 
000126 
000127 
000130 
000131 
000132 
000133 
000134 

000135 
000136 

000137 
000140 
000141 

000142 
000143 



135040 
302040 
660000 
711640 
620040 
711601 
201040 
254000 

201040 
542040 



000242' 

000005 

400000 

000001 

000120 

000000 

000135' 

000112' 

000137' 
000112' 



200240 000010 
260140 000165' 
254000 000226' 



440600 
170700 



000010 
000114' 



01590 
01600 
01610 
01620 
01630 
01640 
01650 
01660 
01670 
01680 
01690 
01700 
01710 
01720 
01730 
01740 
01750 
01760 
01770 
01780 
01790 



.BINARY READ MODE 



CRFSTB 



CRC0L2 
CRC0L4 



CRCi: 
CRC2: 



LDB TAC.CPOINT 3 , CRDATl , 353 J 7-9 PUNCH? 

CAIE TAC, 5 

TRO IDS. IOIMPM; yes. I0IMPM:=1 

CONI CR, TAC 

TRE TAC, CRBUSY + CRALL; BUSY FLAG:=:0, ALL FLAG:=0 

CONG CR,(TAC); RESET TO RE-READ COL 3 

MOVE! TAC» CRC0L2; DISPATCH TO CRC0L2 ON NEXT INTERRUPT 

JRST CREXTl 

MOVEI TAC, CRC0L4J DISPATCH TO CRC0L4 ON NEXT INTERRUPT 
HRRM TACCRDIS 



MOVE DAT, CRDATl 
PUSHJ POP, CRITMS+I; 
JRST CREXIT 

POINT 6, CRDATl 
POINT 7,CRCON,20 



STORE THE WORD FROM OAT 
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000144 
000145 
000146 

000147 
000150 
000151 
000152 

000153 
000154 
000155 

000156 
000157 
000160 
000161 
000162 
000163 

000164 
000165 
000166 
000167 
000170 

000171 
000172 
000173 
000174 
000175 
000176 
000177 
000200 
000201 
000202 
000203 
000204 
000205 

000206 
000207 
000210 
000211 
000212 



201040 000147' 

137400 000243' 

254000 000112' 

260140 000164' 

434400 000240' 

201040 000153' 

254000 000157' 

711640 000002 

620100 000120 

711602 000000 



201040 
711700 
254000 
202026 
350006 
254000 



000156' 

000400 

000213' 

000010 

000010 

000112' 



661000 000004 
260140 000117' 
254000 000052' 
254000 000052' 
263140 000000 

575426 231550 
325546 734162 
301730 057116 
561005 751650 
526552 754262 
551665 424104 
215125 545226 
462331 647640 
506447 222124 
555744 625602 
412070 442614 
436211 137534 
246727 420576 



350701 
260701 
170701 
100701 
010701 



000171' 
000171' 
000171' 
000171' 
000171' 



01800 
01810 
01820 
01830 
01840 
01850 
01860 
01870 
01880 
01890 
01900 
01910 
01920 
01930 
01940 
01950 
01960 
01970 
01980 
01990 
02000 
02010 
02020 
02030 
02040 
02050 
02060 
02070 
02080 
02090 
02100 

02110 

02120 

02130 

02140 

02150 

02160 
02170 
02180 
02190 
02200 
02210 
02220 



, IMAGE READ MODE 
CRFSTI : 



CRIMl 



CRITMS 



CRCNV 



CRCVl 



MOVEI TAG. .+3; DISPATCH TO CRFSTI * 3 ON NEXT INTERRUP 
DPB CRDATl, [POINT 24, CRTEM, 23] ; SAVE COLUMN 1 AS MI 

JRST CREXTl 



PUSHJ PDP, CRITMS; 
lOR CRDATl, CRTEM; 
MOVEI TAG. .+2; 
JRST CRIMl+1 



SET ITEM AND CHECK SIZE 
CRTEM12-35:=C0L 1 AND 2 
DISPATCH TO CRFSTI ♦ 7 ON NEXT INTERRUP 



CONI CR. TACl 

TRZ TACl, CRBUSY+CRALL; busy FLAG:=ALL FLAG:s0 

CONO CR, <TAC1); RESET READER ON COL 3 

MOVEI TAG..; DISPATCH TO CRIMl ON NEXT INTERRUPT 
GONSZ CR, CREOC; END OF CARD? 

JRST crlast; yes 

MOVEM e-DEVPTRCDEVOAT) 

AGS DEVPTR(DEVDAT); INCREMENT ITEM POINTER 

JRST CREXTl 



TLO lOS, iofst; 
PUSHJ PDP, stooat; 
JRST CREOF+1 
JRST CREOF+l 
POPJ PDP, ; 



I0FST:=1 
STORE WORD 



RETURN 



ASCII 
ASCII 
ASCII 
ASCII 
ASCII 
ASCII 
ASCII 



,^123456789, 
,0=Pt'\ /ST 

UVWXYZ;, C, 
,#%-JKLMNOP, 
,QR:$»C>S+A, 

BGDEFGHI?. : 



POINT 7,CRCNV(TAC),6 
POINT 7.CRCNV(TAC),13 
POINT 7.CRCNV(TAC).20 
POINT 7,CRCNV(TAC),27 
POINT 7,CRCNV(TAC),34 
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02230 

02240 




000213 


301200 


000122 


02250 


CRLaST: 


000214 


254000 


000234* 


02260 




000215 


260140 


000000 


02270 


CRLST0: 


000216 


330000 


000000 


02280 




000217 


260140 


000062' 


02290 


CRLST2: 


000220 


254000 


000231' 


02300 




000221 


201040 


000047' 


02310 




000222 


711601 


000160 


02320 
02330 




000223 


661000 


040004 


02340 


CRLSTi: 


000224 


623000 


000001 


02350 




000225 


260140 


000000 


02360 
02370 




000226 


202006 


000002 


02380 


CREXIT: 


000227 


202206 


000011 


02390 




000230 


254000 


000000 


02400 
02410 




000231 


620000 


010000 


02420 


CROFF: 


000232 


711600 


000000 


02430 




000233 


254000 


000223' 


02440 
02450 




000234 


201040 


000221 ' 


02460 


CRCONT: 


000235 


711601 


000160 


02470 




000236 


661000 


040000 


02480 




000237 


254000 


000226' 


02490 
02500 




000240 


000000 


000000 


02510 
02520 


CRTEM: 


000241 


140600 


000010 


02530 


END, 


000242 


000300 


000010 






000243 


143000 


000240' 
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C(ITEM)<82? 

NO 

STORE WORD COUNT 



ADVANCE BUFFER 

EXITI. NEXT BUFFER FULL 



CAR ITEM,tD82; 
JRST CRCONT; 

pusHj pdp.stosqd; 

SKIP 

PUSHJ pdp.advbff; 

JRST croff; 

MOVEI TAC, CDRCHN 

CONO CR, CRBIN+CRALL+CRBUSYCTAC); 

.ASSIGN PI CHANNEL 
TLO lOS.IOFST+CRMFST; lOFST : =CRMFST : si 

TLZE lOS, lOW; IN A WAIT? IOW:=0 

PUSHJ POP, setiod; I0WS:=1 

MOVEM IOS,DEVIOS(DEVDAT); C( CRIOS) : sC( lOS ) 

MOVEM ITEM, DEVCTR ( DEVDAT ) ; C( CRCTR ) : =C(I TEM ) 

JRST CDRRET; RESTORE ACCUMULATORS AND DISMISS INTERR 



SELECT BINARY, ALL 



TRZ lOS.IOACTJ 
CONO CR,0; 
JRST CRLSTI 



IOACT:=0 

CLEAR CDR CONTROL REGISTER 



MOVEI TAC, CORCHN; ASSIGN PI CHANNEL 
CONO CR. CRBIN+CRALL+CRBUSY(TAC); 
TLO ios.crmfst; CRMFST:=1 
JRST CREXIT 







SELECT BINARY, ALL, 



THERE ARE NO ERRORS 
PROGRAM BREAK IS 000244 
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A 

ACl 

AC2 

AC3 

ADVBEE 

AL 

ASSCON 

ASSPRG 

B 

RUFPHT 

RUFWRO 

CDRCHN 

CDRDAT 

CDRDB 

CDRDSP 

CORINl 

CDRINT 

CORRET 

CDRSAV 

CHCHN 

CLOSR 

CLSIN 

CLSOUT 

CRAC 

CRALL 

CRRIN 

CRRUSY 

CRCl 

CRC2 

CRCNV 

CRC0L2 

CRC0L4 

CRCON 

CRCONT 

CRCV 

CRCVl 

CRDATl 

CRDIS 

CRDONE 

CRFOC 

CRFOE 

CRFOFC 

CRFOFF 

CRFRR 

CRFXIT 

CRFXTl 

CRFIRS 

CRFSTB 

CRFSTI 

CRFSTL 

CRIMI 

CRINP 

CRINS 

CRITMS 

CRLAST 



000000 

000015 

000016 

000017 

000217' 

000001 

400000 

200000 

000014 

000012 

000013 

000234' 

000025' 

000000 

000000' 

000005' 

000022' 

000230' 

000024' 

000002 

002000 

000002 

000001 

000011 

000100 

000040 

000020 

000142' 

000143' 

000171' 

000135' 

000137' 

000114' 

000234' 

000074' 

000206' 

000010 

000136' 

000010 

000400 

000051' 

000047' 

001000 

002000 

000226' 

000112' 

000035' 

000125' 

000144' 

000066' 

000156' 

000004' 

000115' 

000164' 

000213' 



INT 
INT 
INT 
INT 
FXT 
INT 
INT 
INT 
INT 
INT 
INT 
EXT 
EXT 
EXT 
INT 

INT 
EXT 
EXT 

INT 
INT 

INT 



EXT 
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CRLST0 

CRLSTl 

CRLST2 

CRMBIN 

CRMFST 

CRMIMG 

CRMISS 

CROFF 

CRREST 

CRTEM 

D 

DAT 

DCL 

OCW 

DDI 

ODD 

DDTMEM 

DDTSYM 

DEN 

DEVADR 

DEVBUF 

DEVCHR 

OEVCTR 

OEVDAT 

DEVIAD 

DEVIOS 

OEVLOG 

DEVMOD 

DEVNAM 

OEVOAD 

DEVPTR 

DEVSER 

DGF 

DIN 

DLK 

DOU 

DR 

DRL 

DSI 

DSO 

DTW 

DVAVAL 

DVCDR 

DVDIR 

DVDIRI 

DVIN 

DVLPT 

OVMTA 

DVOUT 

DVTTY 

ENTRR 

I 

IB 

IBUF8 

ILLOUT 



000215' 

000223' 

000217' 

200000 

040000 

100000 

000200 

000231' 

000070' 

000240' 

000017 

000005 

000001 

020000 

000007 

000006 

000037 

000036 

000004 

000007 

000006 

000001 

000011 

000006 

000007 

000002 

000005 

000004 

000000 

000010 

000010 

000003 

000012 

000003 

000005 

000002 

000016 

000000 

000011 

000010 

040000 

000040 

100000 

000004 

400000 

000002 

040000 

000020 

000001 

000010 

020000 

000010 

000013 

200000 

000002' 



INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
EXT 



CDRSER - CARD READER SERVICE 
SYMROL TABLE 



PAGE 13 



INITR 

INPB 

ID 

lOACT 

lOREG 

lORKTL 

lOCQN 

lODEND 

lODERR 

ionise 

lODONE 

lODTER 

lOEND 

lOFST 

lOIMPM 

lONRCK 

lORDEL 

lORET 

lOS 

lOSET 

lOSTRT 

lOUSF 

lOW 

lOWC 

lOWS 

ITEM 

JBFADR 

JBFCTR 

JBFPTR 

JBUF 

JDAT 

JERR 

Jinw 

JNA 

LOOKB 

MTW 

OBUFB 

OUTPR 

POP 

PICHN 

PIOMOD 

PROG 

RUN 

RUNABL 

S2E0F 

SETBYT 

SETIOD 

STODAT 

STOSOO 

TAC 

TACl 

TEM 

TTYATC 

TTYUSE 

USRMOD 



400000 


INT 


010000 


INT 


0000?0 


INT 


010000 


INT 


000002 


INT 


040000 


INT 


000040 


INT 


020000 


INT 


200000 


INT 


400000 


INT 


400000 


INT 


100000 


INT 


000040 


INT 


000004 


INT 


400000 


INT 


000100 


INT 


000100 


INT 


000020 


INT 


000000 


INT 


000032* 


EXT 


000010 


INT 


400000 


INT 


000001 


INT 


000020 


INT 


400000 


INT 


000004 


INT 


000000 


INT 


000002 


INT 


000001 


INT 


000005 


INT 


000011 


INT 


002000 


INT 


100000 


INT 


004000 


INT 


040000 


INT 


010000 


INT 


100000 


INT 


004000 


INT 


000003 


INT 


000100 


INT 


000006' 


EXT 


000007 


INT 


200000 


INT 


204000 


INT 


000032 




000015' 


EXT 


000225' 


EXT 


000165' 


EXT 


000215' 


EXT 


000001 


INT 


000002 


INT 


000010 


INT 


020000 


INT 


010000 


INT 


010000 


INT 
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END OE ASSEMBLY 



000(314 INT 



